home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Libraries / MathIEEEDPTrans.asm < prev    next >
Assembly Source File  |  1991-03-13  |  3KB  |  183 lines
  1. *
  2. *    MathIEEEDPTrans.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    These are the stubs for the routines declared in
  6. *    include/libraries/MathIEEEDP.i having to do with
  7. *    transendental and trigonometric functions.
  8. *
  9.  
  10.     XREF    _MathIEEEDoubTransBase
  11.  
  12.     SECTION    PCQ_Runtime,CODE
  13.  
  14.     XREF    _LVOIEEEDPAcos
  15.     XDEF    _IEEEDPAcos
  16. _IEEEDPAcos
  17.     movem.l    8(sp),d0/d1
  18.     move.l    _MathIEEEDoubTransBase,a6
  19.     jsr    _LVOIEEEDPAcos(a6)
  20.     move.l    4(sp),a0
  21.     movem.l    d0/d1,(a0)
  22.     rts
  23.  
  24.     XREF    _LVOIEEEDPAsin
  25.     XDEF    _IEEEDPAsin
  26. _IEEEDPAsin
  27.     movem.l    8(sp),d0/d1
  28.     move.l    _MathIEEEDoubTransBase,a6
  29.     jsr    _LVOIEEEDPAsin(a6)
  30.     move.l    4(sp),a0
  31.     movem.l    d0/d1,(a0)
  32.     rts
  33.  
  34.     XREF    _LVOIEEEDPAtan
  35.     XDEF    _IEEEDPAtan
  36. _IEEEDPAtan
  37.     movem.l    8(sp),d0/d1
  38.     move.l    _MathIEEEDoubTransBase,a6
  39.     jsr    _LVOIEEEDPAtan(a6)
  40.     move.l    4(sp),a0
  41.     movem.l    d0/d1,(a0)
  42.     rts
  43.  
  44.     XREF    _LVOIEEEDPCos
  45.     XDEF    _IEEEDPCos
  46. _IEEEDPCos
  47.     movem.l    8(sp),d0/d1
  48.     move.l    _MathIEEEDoubTransBase,a6
  49.     jsr    _LVOIEEEDPCos(a6)
  50.     move.l    4(sp),a0
  51.     movem.l    d0/d1,(a0)
  52.     rts
  53.  
  54.     XREF    _LVOIEEEDPCosh
  55.     XDEF    _IEEEDPCosh
  56. _IEEEDPCosh
  57.     movem.l    8(sp),d0/d1
  58.     move.l    _MathIEEEDoubTransBase,a6
  59.     jsr    _LVOIEEEDPCosh(a6)
  60.     move.l    4(sp),a0
  61.     movem.l    d0/d1,(a0)
  62.     rts
  63.  
  64.     XREF    _LVOIEEEDPExp
  65.     XDEF    _IEEEDPExp
  66. _IEEEDPExp
  67.     movem.l    8(sp),d0/d1
  68.     move.l    _MathIEEEDoubTransBase,a6
  69.     jsr    _LVOIEEEDPExp(a6)
  70.     move.l    4(sp),a0
  71.     movem.l    d0/d1,(a0)
  72.     rts
  73.  
  74.     XREF    _LVOIEEEDPFieee
  75.     XDEF    _IEEEDPFieee
  76. _IEEEDPFieee
  77.     move.l    8(sp),d0
  78.     move.l    _MathIEEEDoubTransBase,a6
  79.     jsr    _LVOIEEEDPFieee(a6)
  80.     move.l    4(sp),a0
  81.     movem.l    d0/d1,(a0)
  82.     rts
  83.  
  84.     XREF    _LVOIEEEDPLog
  85.     XDEF    _IEEEDPLog
  86. _IEEEDPLog
  87.     movem.l    8(sp),d0/d1
  88.     move.l    _MathIEEEDoubTransBase,a6
  89.     jsr    _LVOIEEEDPLog(a6)
  90.     move.l    4(sp),a0
  91.     movem.l    d0/d1,(a0)
  92.     rts
  93.  
  94.     XREF    _LVOIEEEDPLog10
  95.     XDEF    _IEEEDPLog10
  96. _IEEEDPLog10
  97.     movem.l    8(sp),d0/d1
  98.     move.l    _MathIEEEDoubTransBase,a6
  99.     jsr    _LVOIEEEDPLog10(a6)
  100.     move.l    4(sp),a0
  101.     movem.l    d0/d1,(a0)
  102.     rts
  103.  
  104.     XREF    _LVOIEEEDPPow
  105.     XDEF    _IEEEDPPow
  106. _IEEEDPPow
  107.     movem.l    8(sp),d0/d1/d2/d3
  108.     move.l    _MathIEEEDoubTransBase,a6
  109.     jsr    _LVOIEEEDPPow(a6)
  110.     move.l    4(sp),a0
  111.     movem.l    d0/d1,(a0)
  112.     rts
  113.  
  114.     XREF    _LVOIEEEDPSin
  115.     XDEF    _IEEEDPSin
  116. _IEEEDPSin
  117.     movem.l    8(sp),d0/d1
  118.     move.l    _MathIEEEDoubTransBase,a6
  119.     jsr    _LVOIEEEDPSin(a6)
  120.     move.l    4(sp),a0
  121.     movem.l    d0/d1,(a0)
  122.     rts
  123.  
  124.     XREF    _LVOIEEEDPSinCos
  125.     XDEF    _IEEEDPSinCos
  126. _IEEEDPSinCos
  127.     movem.l    12(sp),d0/d1
  128.     move.l    8(sp),a0
  129.     move.l    _MathIEEEDoubTransBase,a6
  130.     jsr    _LVOIEEEDPSinCos(a6)
  131.     move.l    4(sp),a0
  132.     movem.l    d0/d1,(a0)
  133.     rts
  134.  
  135.     XREF    _LVOIEEEDPSinh
  136.     XDEF    _IEEEDPSinh
  137. _IEEEDPSinh
  138.     movem.l    8(sp),d0/d1
  139.     move.l    _MathIEEEDoubTransBase,a6
  140.     jsr    _LVOIEEEDPSinh(a6)
  141.     move.l    4(sp),a0
  142.     movem.l    d0/d1,(a0)
  143.     rts
  144.  
  145.     XREF    _LVOIEEEDPSqrt
  146.     XDEF    _IEEEDPSqrt
  147. _IEEEDPSqrt
  148.     movem.l    8(sp),d0/d1
  149.     move.l    _MathIEEEDoubTransBase,a6
  150.     jsr    _LVOIEEEDPSqrt(a6)
  151.     move.l    4(sp),a0
  152.     movem.l    d0/d1,(a0)
  153.     rts
  154.  
  155.     XREF    _LVOIEEEDPTan
  156.     XDEF    _IEEEDPTan
  157. _IEEEDPTan
  158.     movem.l    8(sp),d0/d1
  159.     move.l    _MathIEEEDoubTransBase,a6
  160.     jsr    _LVOIEEEDPTan(a6)
  161.     move.l    4(sp),a0
  162.     movem.l    d0/d1,(a0)
  163.     rts
  164.  
  165.     XREF    _LVOIEEEDPTanh
  166.     XDEF    _IEEEDPTanh
  167. _IEEEDPTanh
  168.     movem.l    8(sp),d0/d1
  169.     move.l    _MathIEEEDoubTransBase,a6
  170.     jsr    _LVOIEEEDPTanh(a6)
  171.     move.l    4(sp),a0
  172.     movem.l    d0/d1,(a0)
  173.     rts
  174.  
  175.     XREF    _LVOIEEEDPTieee
  176.     XDEF    _IEEEDPTieee
  177. _IEEEDPTieee
  178.     movem.l    4(sp),d0/d1
  179.     move.l    _MathIEEEDoubTransBase,a6
  180.     jmp    _LVOIEEEDPTieee(a6)
  181.  
  182.     END
  183.